inherited fmRequestGPChange_Def: TfmRequestGPChange_Def
  Left = 192
  Top = 106
  Width = 1043
  Height = 831
  Caption = #1057#1086#1079#1076#1072#1085#1080#1077' '#1079#1072#1103#1074#1083#1077#1085#1080#1103' '#1085#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1077' '#1075#1088#1072#1092#1080#1082#1072' '#1087#1083#1072#1090#1077#1078#1077#1081
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 770
    Width = 1035
  end
  inherited Panel1: TPanel
    Width = 1035
    inherited BitBtn1: TBitBtn
      Left = 865
    end
    inherited BitBtn2: TBitBtn
      Left = 953
    end
  end
  object pc: TcxPageControl [2]
    Left = 569
    Top = 45
    Width = 466
    Height = 725
    ActivePage = cxTabSheet1
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    ClientRectBottom = 724
    ClientRectLeft = 1
    ClientRectRight = 465
    ClientRectTop = 24
    object cxTabSheet1: TcxTabSheet
      Caption = #1055#1077#1088#1074#1080#1095#1085#1086#1077' '#1079#1072#1103#1074#1083#1077#1085#1080#1077
      ImageIndex = 0
      object bFromFile: TcxButton
        Left = 0
        Top = 0
        Width = 464
        Height = 25
        Caption = #1044#1086#1073#1072#1074#1080#1090#1100'/'#1080#1079#1084#1077#1085#1080#1090#1100' '#1087#1077#1088#1074#1080#1095#1085#1086#1077
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        OnClick = bFromFileClick
        Align = alTop
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000CE0E0000D80E00001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333387F3333333333333333333333333333387F333333333333344333
          3333333333387F3333333333333443333333333333387F333333333333344333
          3333333333387F3333333333333443333333333333387F333333333333344333
          3333387FFFFFFFFFFFFF3344444444444433387777777F777777334444444444
          4433388888887F8888883333333443333333333333387F333333333333344333
          3333333333387F3333333333333443333333333333387F333333333333344333
          3333333333387F33333333333334433333333333333877333333333333333333
          3333333333388833333333333333333333333333333333333333}
        NumGlyphs = 2
      end
      object PdfViewer1: TPdfViewer
        Left = 0
        Top = 25
        Width = 464
        Height = 675
        Align = alClient
        About = 'Synactis PDF Viewer version 1.0'
        AutoOpen = True
        Copies = 1
        EndPage = 0
        FitMode = vmFitBoxHorz
        LayoutMode = lmDontCare
        PageMode = pmStandard
        ShowPrintDialog = True
        ShowScrollBars = True
        ShowToolBar = True
        ShrinkToMargins = True
        StartPage = 1
      end
    end
    object cxTabSheet2: TcxTabSheet
      Caption = #1056#1077#1075#1080#1089#1090#1088#1072#1094#1080#1086#1085#1085#1086#1077' '#1079#1072#1103#1074#1083#1077#1085#1080#1077
      ImageIndex = 1
      object cxButton1: TcxButton
        Left = 0
        Top = 0
        Width = 464
        Height = 25
        Caption = #1044#1086#1073#1072#1074#1080#1090#1100'/'#1080#1079#1084#1077#1085#1080#1090#1100' '#1088#1077#1075#1080#1089#1090#1088#1072#1094#1080#1086#1085#1085#1086#1077
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        OnClick = cxButton1Click
        Align = alTop
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000CE0E0000D80E00001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333387F3333333333333333333333333333387F333333333333344333
          3333333333387F3333333333333443333333333333387F333333333333344333
          3333333333387F3333333333333443333333333333387F333333333333344333
          3333387FFFFFFFFFFFFF3344444444444433387777777F777777334444444444
          4433388888887F8888883333333443333333333333387F333333333333344333
          3333333333387F3333333333333443333333333333387F333333333333344333
          3333333333387F33333333333334433333333333333877333333333333333333
          3333333333388833333333333333333333333333333333333333}
        NumGlyphs = 2
      end
      object PdfViewer2: TPdfViewer
        Left = 0
        Top = 25
        Width = 464
        Height = 675
        Align = alClient
        About = 'Synactis PDF Viewer version 1.0'
        AutoOpen = True
        Copies = 1
        EndPage = 0
        FitMode = vmFitBoxHorz
        LayoutMode = lmDontCare
        PageMode = pmStandard
        ShowPrintDialog = True
        ShowScrollBars = True
        ShowToolBar = True
        ShrinkToMargins = True
        StartPage = 1
      end
    end
  end
  object Panel2: TPanel [3]
    Left = 0
    Top = 45
    Width = 561
    Height = 725
    Align = alLeft
    TabOrder = 3
    object Label5: TLabel
      Left = 1
      Top = 401
      Width = 559
      Height = 13
      Align = alTop
      Caption = #1055#1088#1077#1076#1087#1086#1083#1072#1075#1072#1077#1084#1099#1077' '#1085#1086#1074#1099#1077' '#1087#1083#1072#1090#1077#1078#1080': (*)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object ToolBar1: TToolBar
      Left = 1
      Top = 414
      Width = 559
      Height = 29
      ButtonWidth = 26
      Caption = 'ToolBar1'
      EdgeInner = esNone
      EdgeOuter = esNone
      Images = DMInv.ilActive
      TabOrder = 0
      object tbAddRD: TToolButton
        Left = 0
        Top = 2
        Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1087#1083#1072#1090#1077#1078
        Caption = 'tbAddRD'
        ImageIndex = 28
        ParentShowHint = False
        ShowHint = True
        OnClick = tbAddRDClick
      end
      object tbDelR: TToolButton
        Left = 26
        Top = 2
        Hint = #1059#1076#1072#1083#1080#1090#1100' '#1087#1083#1072#1090#1077#1078
        Caption = 'tbDelR'
        ImageIndex = 29
        ParentShowHint = False
        ShowHint = True
        OnClick = tbDelRClick
      end
    end
    object dbgRDef: TcxGrid
      Left = 1
      Top = 443
      Width = 559
      Height = 145
      Align = alTop
      BevelOuter = bvNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      LookAndFeel.Kind = lfStandard
      object tvRDef: TcxGridDBTableView
        NavigatorButtons.ConfirmDelete = False
        NavigatorButtons.PriorPage.Visible = True
        NavigatorButtons.Next.Visible = True
        NavigatorButtons.Insert.Visible = True
        NavigatorButtons.Append.Visible = False
        NavigatorButtons.Edit.Visible = False
        NavigatorButtons.Post.Visible = True
        NavigatorButtons.Cancel.Visible = False
        NavigatorButtons.Refresh.Visible = False
        NavigatorButtons.SaveBookmark.Visible = False
        NavigatorButtons.GotoBookmark.Visible = False
        NavigatorButtons.Filter.Visible = False
        FilterBox.Position = fpTop
        DataController.DataSource = dsRF
        DataController.Summary.DefaultGroupSummaryItems = <
          item
            Format = '#,###0'
            Kind = skSum
            FieldName = 'KVYPLATE'
          end>
        DataController.Summary.FooterSummaryItems = <
          item
            Kind = skCount
            FieldName = 'RGPCDDATE'
            Column = tvRDefRGPCDDATE
          end
          item
            Format = '#,###0'
            Kind = skSum
            FieldName = 'RGPCDSUMMA'
            Column = tvRDefRGPCDSUMMA
          end>
        DataController.Summary.SummaryGroups = <>
        Filtering.ColumnFilteredItemsList = True
        OptionsBehavior.CellHints = True
        OptionsBehavior.IncSearch = True
        OptionsCustomize.ColumnFiltering = False
        OptionsCustomize.ColumnGrouping = False
        OptionsData.CancelOnExit = False
        OptionsData.Deleting = False
        OptionsView.CellEndEllipsis = True
        OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
        OptionsView.CellAutoHeight = True
        OptionsView.CellTextMaxLineCount = 1
        OptionsView.ColumnAutoWidth = True
        OptionsView.Footer = True
        OptionsView.GroupByBox = False
        OptionsView.GroupFooters = gfVisibleWhenExpanded
        OptionsView.HeaderEndEllipsis = True
        OptionsView.Indicator = True
        Preview.Visible = True
        Styles.Header = DMInv.cxSiniyText
        object tvRDefRGPCDDATE: TcxGridDBColumn
          Caption = #1044#1072#1090#1072
          DataBinding.FieldName = 'RGPCDDATE'
          PropertiesClassName = 'TcxDateEditProperties'
        end
        object tvRDefRGPCDSUMMA: TcxGridDBColumn
          Caption = #1057#1091#1084#1084#1072
          DataBinding.FieldName = 'RGPCDSUMMA'
          PropertiesClassName = 'TcxCalcEditProperties'
        end
      end
      object cxGridLevel2: TcxGridLevel
        GridView = tvRDef
      end
    end
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 559
      Height = 400
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 2
      object Label18: TLabel
        Left = 16
        Top = 12
        Width = 109
        Height = 13
        Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100' '#1091#1089#1083#1091#1075' (*)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 16
        Top = 299
        Width = 245
        Height = 13
        Caption = #1055#1088#1080#1095#1080#1085#1072' '#1085#1077#1074#1086#1079#1084#1086#1078#1085#1086#1089#1090#1080' '#1089#1074#1086#1077#1074#1088#1077#1084#1077#1085#1085#1086#1081' '#1086#1087#1083#1072#1090#1099
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 16
        Top = 61
        Width = 139
        Height = 13
        Caption = #1044#1072#1090#1072' '#1087#1086#1076#1072#1095#1080' '#1079#1072#1103#1074#1083#1077#1085#1080#1103' (*)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 16
        Top = 116
        Width = 122
        Height = 13
        Caption = #1055#1086#1076#1087#1080#1089#1072#1083' '#1079#1072#1103#1074#1083#1077#1085#1080#1077' (*)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label1: TLabel
        Left = 16
        Top = 172
        Width = 166
        Height = 13
        Caption = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1086#1077' '#1089#1086#1075#1083#1072#1096#1077#1085#1080#1077' (*)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 16
        Top = 237
        Width = 229
        Height = 13
        Caption = #1044#1072#1090#1072' '#1089#1091#1097#1077#1089#1090#1074#1091#1102#1097#1077#1075#1086' '#1075#1088#1072#1092#1080#1082#1072' '#1087#1083#1072#1090#1077#1078#1077#1081' (*)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label9: TLabel
        Left = 392
        Top = 236
        Width = 96
        Height = 13
        Caption = 'C'#1091#1084#1084#1072' '#1087#1086' '#1075#1088#1072#1092#1080#1082#1091':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object lcbPU: TcxDBLookupComboBox
        Left = 15
        Top = 28
        DataBinding.DataField = 'PID_POLUCH'
        DataBinding.DataSource = dlgDS
        ParentFont = False
        Properties.DropDownListStyle = lsEditList
        Properties.DropDownRows = 15
        Properties.KeyFieldNames = 'PID'
        Properties.ListColumns = <
          item
            Caption = #1060#1048#1054
            FieldName = 'PP'
          end
          item
            Caption = #1057#1090#1072#1090#1091#1089
            FieldName = 'SDNAME'
          end
          item
            Caption = #1044#1072#1090#1072' '#1088#1086#1078#1076'.'
            Fixed = True
            FieldName = 'PDATEBIRTH'
          end>
        Properties.ListSource = dsPeople
        Properties.MaxLength = 0
        Properties.OnCloseUp = lcbPUPropertiesCloseUp
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clBlack
        Style.Font.Height = -15
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.Shadow = True
        Style.IsFontAssigned = True
        TabOrder = 0
        OnMouseDown = lcbPUMouseDown
        Width = 538
      end
      object edRDATE: TcxDBDateEdit
        Left = 18
        Top = 78
        DataBinding.DataField = 'RDATE'
        DataBinding.DataSource = dlgDS
        ParentFont = False
        Properties.DateButtons = [btnClear, btnToday]
        Properties.InputKind = ikMask
        Properties.SaveTime = False
        Properties.ShowTime = False
        Properties.WeekNumbers = True
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -16
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = [fsBold]
        Style.IsFontAssigned = True
        TabOrder = 2
        Width = 127
      end
      object lcbP: TcxDBLookupComboBox
        Left = 15
        Top = 132
        DataBinding.DataField = 'PID'
        DataBinding.DataSource = dlgDS
        ParentFont = False
        Properties.DropDownListStyle = lsEditList
        Properties.DropDownRows = 15
        Properties.KeyFieldNames = 'PID'
        Properties.ListColumns = <
          item
            Caption = #1060#1048#1054
            FieldName = 'PP'
          end
          item
            Caption = #1057#1090#1072#1090#1091#1089
            FieldName = 'SDNAME'
          end
          item
            Caption = #1044#1072#1090#1072' '#1088#1086#1078#1076'.'
            Fixed = True
            FieldName = 'PDATEBIRTH'
          end>
        Properties.ListSource = dsDL
        Properties.MaxLength = 0
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clBlack
        Style.Font.Height = -15
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.Shadow = True
        Style.IsFontAssigned = True
        TabOrder = 1
        OnMouseDown = lcbPUMouseDown
        Width = 538
      end
      object cxDBMemo1: TcxDBMemo
        Left = 16
        Top = 320
        DataBinding.DataField = 'RNOTE'
        DataBinding.DataSource = dlgDS
        ParentFont = False
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -13
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.Shadow = True
        Style.IsFontAssigned = True
        TabOrder = 3
        Height = 73
        Width = 534
      end
      object lcbSC: TcxDBLookupComboBox
        Left = 13
        Top = 196
        DataBinding.DataField = 'SCID'
        DataBinding.DataSource = dlgDS
        ParentFont = False
        Properties.Alignment.Horz = taLeftJustify
        Properties.DropDownListStyle = lsEditList
        Properties.DropDownRows = 15
        Properties.KeyFieldNames = 'SCID'
        Properties.ListColumns = <
          item
            Caption = #8470' '#1089#1082#1074#1079#1085'.'
            FieldName = 'SCID'
          end
          item
            Caption = #1059#1089#1083#1091#1075#1072
            FieldName = 'STNAME'
          end
          item
            Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
            Fixed = True
            FieldName = 'SCDATEBEGIN'
          end
          item
            Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095'.'
            FieldName = 'SCDATEEND'
          end>
        Properties.ListFieldIndex = 1
        Properties.ListSource = dsSC
        Properties.MaxLength = 0
        Properties.OnCloseUp = lcbSCPropertiesCloseUp
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clBlack
        Style.Font.Height = -15
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.Shadow = True
        Style.IsFontAssigned = True
        TabOrder = 4
        OnMouseDown = lcbPUMouseDown
        Width = 538
      end
      object lGPAMOUNT: TcxDBLabel
        Left = 392
        Top = 262
        DataBinding.DataField = 'GPAMOUNT'
        DataBinding.DataSource = dsGP
        ParentFont = False
        Properties.Alignment.Horz = taLeftJustify
        Style.BorderStyle = ebsUltraFlat
        Style.Edges = [bLeft, bTop, bRight, bBottom]
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clGreen
        Style.Font.Height = -16
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = [fsBold]
        Style.Shadow = False
        Style.IsFontAssigned = True
        Height = 21
        Width = 121
      end
      object lGPDATE: TcxDBLabel
        Left = 16
        Top = 262
        DataBinding.DataField = 'GPDATE'
        DataBinding.DataSource = dsGP
        ParentFont = False
        Properties.Alignment.Horz = taLeftJustify
        Style.BorderStyle = ebsUltraFlat
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clGreen
        Style.Font.Height = -16
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = [fsBold]
        Style.LookAndFeel.Kind = lfOffice11
        Style.IsFontAssigned = True
        StyleDisabled.LookAndFeel.Kind = lfOffice11
        StyleFocused.LookAndFeel.Kind = lfOffice11
        StyleHot.LookAndFeel.Kind = lfOffice11
        Height = 21
        Width = 121
      end
      object lcbGP: TcxDBLookupComboBox
        Left = 13
        Top = 260
        DataBinding.DataField = 'RDATEGP'
        DataBinding.DataSource = dlgDS
        ParentFont = False
        Properties.Alignment.Horz = taLeftJustify
        Properties.DropDownListStyle = lsEditList
        Properties.DropDownRows = 15
        Properties.KeyFieldNames = 'GPDATE'
        Properties.ListColumns = <
          item
            Caption = #1044#1072#1090#1072
            FieldName = 'GPDATE'
          end
          item
            Caption = #1057#1091#1084#1084#1072
            FieldName = 'GPAMOUNT'
          end
          item
            Caption = #8470' '#1089#1082#1074#1079#1085' '#1044#1057
            FieldName = 'SCID'
          end>
        Properties.ListSource = dsGP
        Properties.MaxLength = 0
        Properties.OnCloseUp = lcbGPPropertiesCloseUp
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clBlack
        Style.Font.Height = -15
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.Shadow = True
        Style.IsFontAssigned = True
        TabOrder = 5
        Width = 364
      end
      object cxLabel1: TcxLabel
        Left = 248
        Top = 0
        Caption = #1042#1085#1080#1084#1072#1085#1080#1077'! '#1055#1086#1083#1103' '#1087#1086#1084#1077#1095#1077#1085#1085#1099#1077' (*) '#1079#1072#1087#1086#1083#1085#1103#1102#1090#1089#1103' '#1086#1073#1103#1079#1072#1090#1077#1083#1100#1085#1086'!'
      end
    end
    object Panel_Rezol: TPanel
      Left = 1
      Top = 588
      Width = 559
      Height = 128
      Align = alTop
      BevelOuter = bvNone
      Enabled = False
      TabOrder = 3
      object Label7: TLabel
        Left = 8
        Top = 3
        Width = 141
        Height = 13
        Caption = #1056#1077#1079#1086#1083#1102#1094#1080#1103' '#1076#1080#1088#1077#1082#1090#1086#1088#1072' '#1089#1072#1076#1072
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 8
        Top = 62
        Width = 135
        Height = 13
        Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081' '#1082' '#1088#1077#1079#1086#1083#1102#1094#1080#1080
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object cxDBCheckBox1: TcxDBCheckBox
        Left = 8
        Top = 24
        Caption = #1056#1077#1082#1086#1084#1077#1085#1076#1091#1102' '#1080#1079#1084#1077#1085#1080#1090#1100' '#1075#1088#1072#1092#1080#1082
        DataBinding.DataField = 'RREZOL'
        DataBinding.DataSource = dlgDS
        ParentFont = False
        Properties.NullStyle = nssUnchecked
        Properties.ValueChecked = 1
        Properties.ValueUnchecked = 0
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -16
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.Shadow = True
        Style.IsFontAssigned = True
        TabOrder = 0
        Width = 249
      end
      object cxDBMemo2: TcxDBMemo
        Left = 8
        Top = 80
        DataBinding.DataField = 'RREZOLNOTE'
        DataBinding.DataSource = dlgDS
        ParentFont = False
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -13
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.Shadow = True
        Style.IsFontAssigned = True
        TabOrder = 1
        Height = 40
        Width = 537
      end
    end
  end
  object cxSplitter1: TcxSplitter [4]
    Left = 561
    Top = 45
    Width = 8
    Height = 725
    HotZoneClassName = 'TcxMediaPlayer9Style'
    Control = Panel2
  end
  inherited dlgDS: TDataSource
    DataSet = qR
    Top = 8
  end
  object dsPeople: TDataSource
    DataSet = qPeople1
    Left = 400
    Top = 102
  end
  object qPeople1: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT P.PID, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,' +
        #39' '#39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP,'
      '    SD.SDNAME, PS.SDID, PDATEBIRTH'
      'FROM PEOPLE P'
      'INNER JOIN P_STATUS PS ON PS.PID = P.PID'
      'INNER JOIN SYS_DIC SD ON SD.SDID = PS.SDID'
      ''
      'WHERE P.PISDELETE IS NULL and PS.sdid = 1246 '
      'ORDER BY 3, 2')
    Left = 432
    Top = 102
    object qPeople1PID: TIntegerField
      FieldName = 'PID'
      Origin = '"PEOPLE"."PID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qPeople1PP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object qPeople1SDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qPeople1SDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"P_STATUS"."SDID"'
    end
    object qPeople1PDATEBIRTH: TDateField
      FieldName = 'PDATEBIRTH'
      Origin = '"PEOPLE"."PDATEBIRTH"'
    end
  end
  object dsDL: TDataSource
    DataSet = qDL
    Left = 416
    Top = 198
  end
  object qDL: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT P.PID, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,' +
        #39' '#39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP,'
      '    SD.SDNAME, PS.SDID, PDATEBIRTH'
      'FROM PEOPLE P'
      'INNER JOIN P_STATUS PS ON PS.PID = P.PID'
      'INNER JOIN SYS_DIC SD ON SD.SDID = PS.SDID'
      ''
      'WHERE P.PISDELETE IS NULL and PS.sdid <> 1246'
      ' '
      'ORDER BY 3, 2')
    Left = 456
    Top = 198
    object qDLPID: TIntegerField
      FieldName = 'PID'
      Origin = '"PEOPLE"."PID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qDLPP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object qDLSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qDLSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"P_STATUS"."SDID"'
    end
    object qDLPDATEBIRTH: TDateField
      FieldName = 'PDATEBIRTH'
      Origin = '"PEOPLE"."PDATEBIRTH"'
    end
  end
  object qRScan2: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qRScan2AfterInsert
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'select * from REQUEST_SCAN_GPC where rid = :rid and rstype = 2')
    UpdateObject = quRScan2
    Left = 666
    Top = 150
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'rid'
        ParamType = ptUnknown
      end>
    object qRScan2RID: TIntegerField
      FieldName = 'RID'
      Origin = '"REQUEST_SCAN_GPC"."RID"'
    end
    object qRScan2RSFILE: TBlobField
      FieldName = 'RSFILE'
      Origin = '"REQUEST_SCAN_GPC"."RSFILE"'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
    object qRScan2RSTYPE: TIntegerField
      FieldName = 'RSTYPE'
      Origin = '"REQUEST_SCAN_GPC"."RSTYPE"'
    end
  end
  object quRScan2: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  RID,'
      '  RSFILE,'
      '  RSTYPE'
      'from REQUEST_SCAN_GPC '
      'where'
      '  RID = :RID and'
      '  RSTYPE = 2')
    ModifySQL.Strings = (
      'update REQUEST_SCAN_GPC'
      'set'
      '  RID = :RID,'
      '  RSFILE = :RSFILE'
      'where'
      '  RID = :OLD_RID and'
      '  RSTYPE = 2')
    InsertSQL.Strings = (
      'insert into REQUEST_SCAN_GPC'
      '  (RID, RSFILE, RSTYPE)'
      'values'
      '  (:RID, :RSFILE, 2)')
    DeleteSQL.Strings = (
      'delete from REQUEST_SCAN_GPC'
      'where'
      '  RID = :OLD_RID and'
      '  RSTYPE = 2')
    Left = 706
    Top = 150
  end
  object qRScan: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qRScanAfterInsert
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'select * from REQUEST_SCAN_GPC where rid = :rid and rstype = 1')
    UpdateObject = quRScan
    Left = 666
    Top = 190
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'rid'
        ParamType = ptUnknown
      end>
    object qRScanRID: TIntegerField
      FieldName = 'RID'
      Origin = '"REQUEST_SCAN_GPC"."RID"'
    end
    object qRScanRSFILE: TBlobField
      FieldName = 'RSFILE'
      Origin = '"REQUEST_SCAN_GPC"."RSFILE"'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
    object qRScanRSTYPE: TIntegerField
      FieldName = 'RSTYPE'
      Origin = '"REQUEST_SCAN_GPC"."RSTYPE"'
    end
  end
  object quRScan: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  RID,'
      '  RSFILE,'
      '  RSTYPE'
      'from REQUEST_SCAN_GPC '
      'where'
      '  RID = :RID and'
      '  RSTYPE = 1')
    ModifySQL.Strings = (
      'update REQUEST_SCAN_GPC'
      'set'
      '  RID = :RID,'
      '  RSFILE = :RSFILE'
      'where'
      '  RID = :OLD_RID and'
      '  RSTYPE = 1')
    InsertSQL.Strings = (
      'insert into REQUEST_SCAN_GPC'
      '  (RID, RSFILE, RSTYPE)'
      'values'
      '  (:RID, :RSFILE, 1)')
    DeleteSQL.Strings = (
      'delete from REQUEST_SCAN_GPC'
      'where'
      '  RID = :OLD_RID and'
      '  RSTYPE = 1')
    Left = 706
    Top = 192
  end
  object odScan: TOpenDialog
    Filter = 'PDF|*.pdf'
    InitialDir = 'c:\'
    Left = 664
    Top = 232
  end
  object qRF: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qRFAfterInsert
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'select rd.*'
      ' from RGPC_DEF rd'
      'where rd.rid = :rid')
    UpdateObject = quRF
    GeneratorField.Field = 'RDID'
    Left = 264
    Top = 461
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'rid'
        ParamType = ptUnknown
      end>
    object qRFRID: TIntegerField
      FieldName = 'RID'
      Origin = '"RGPC_DEF"."RID"'
      Required = True
    end
    object qRFRGPCDDATE: TDateField
      FieldName = 'RGPCDDATE'
      Origin = '"RGPC_DEF"."RGPCDDATE"'
    end
    object qRFRGPCDSUMMA: TIBBCDField
      FieldName = 'RGPCDSUMMA'
      Origin = '"RGPC_DEF"."RGPCDSUMMA"'
      Precision = 18
      Size = 2
    end
  end
  object dsRF: TDataSource
    DataSet = qRF
    Left = 224
    Top = 464
  end
  object quRF: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  RID,'
      '  RGPCDDATE,'
      '  RGPCDSUMMA'
      'from RGPC_DEF '
      'where'
      '  RID = :RID')
    ModifySQL.Strings = (
      'update RGPC_DEF'
      'set'
      '  RGPCDDATE = :RGPCDDATE,'
      '  RGPCDSUMMA = :RGPCDSUMMA,'
      '  RID = :RID'
      'where'
      '  RID = :OLD_RID')
    InsertSQL.Strings = (
      'insert into RGPC_DEF'
      '  (RGPCDDATE, RGPCDSUMMA, RID)'
      'values'
      '  (:RGPCDDATE, :RGPCDSUMMA, :RID)')
    DeleteSQL.Strings = (
      'delete from RGPC_DEF'
      'where'
      '  RID = :OLD_RID')
    Left = 304
    Top = 461
  end
  object qSC: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DataSource = dsPeople
    SQL.Strings = (
      'SELECT sc.*, stp.STNAME'
      'FROM spec_cond sc'
      'INNER JOIN services ser ON ser.scid = sc.scid'
      'INNER JOIN services_type stp ON stp.stid = ser.stid'
      'INNER JOIN agreements a ON a.agid = sc.agid'
      'INNER JOIN AGR_POLUCH_USLUG APU ON APU.AGID = A.AGID'
      'WHERE APU.PID = :pid AND'
      '      sc.scisdelete IS NULL'
      '      AND a.AGISDELETE IS NULL'
      'ORDER BY sc.SCID')
    Left = 248
    Top = 253
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pid'
        ParamType = ptUnknown
      end>
    object qSCSCID: TIntegerField
      FieldName = 'SCID'
      Origin = '"SPEC_COND"."SCID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qSCSCNUM_N: TIntegerField
      FieldName = 'SCNUM_N'
      Origin = '"SPEC_COND"."SCNUM_N"'
    end
    object qSCAGID: TIntegerField
      FieldName = 'AGID'
      Origin = '"SPEC_COND"."AGID"'
      Required = True
    end
    object qSCSCNUMBER: TIBStringField
      FieldName = 'SCNUMBER'
      Origin = '"SPEC_COND"."SCNUMBER"'
      Size = 40
    end
    object qSCSCDATE: TDateField
      FieldName = 'SCDATE'
      Origin = '"SPEC_COND"."SCDATE"'
    end
    object qSCSCDATEEND: TDateField
      FieldName = 'SCDATEEND'
      Origin = '"SPEC_COND"."SCDATEEND"'
    end
    object qSCSCNOTE: TIBStringField
      FieldName = 'SCNOTE'
      Origin = '"SPEC_COND"."SCNOTE"'
      Size = 255
    end
    object qSCSCISDELETE: TIntegerField
      FieldName = 'SCISDELETE'
      Origin = '"SPEC_COND"."SCISDELETE"'
    end
    object qSCSCISNEEDRESIGN: TIntegerField
      FieldName = 'SCISNEEDRESIGN'
      Origin = '"SPEC_COND"."SCISNEEDRESIGN"'
    end
    object qSCSCUSERENTER: TIBStringField
      FieldName = 'SCUSERENTER'
      Origin = '"SPEC_COND"."SCUSERENTER"'
      Size = 40
    end
    object qSCSCTIMEENTER: TDateTimeField
      FieldName = 'SCTIMEENTER'
      Origin = '"SPEC_COND"."SCTIMEENTER"'
    end
    object qSCSCUSEREDIT: TIBStringField
      FieldName = 'SCUSEREDIT'
      Origin = '"SPEC_COND"."SCUSEREDIT"'
      Size = 40
    end
    object qSCSCTIMEEDIT: TDateTimeField
      FieldName = 'SCTIMEEDIT'
      Origin = '"SPEC_COND"."SCTIMEEDIT"'
    end
    object qSCSCDATEREGISTER: TDateTimeField
      FieldName = 'SCDATEREGISTER'
      Origin = '"SPEC_COND"."SCDATEREGISTER"'
    end
    object qSCSCUSERREGISTER: TIBStringField
      FieldName = 'SCUSERREGISTER'
      Origin = '"SPEC_COND"."SCUSERREGISTER"'
      Size = 40
    end
    object qSCSCDISCOUNT: TIBBCDField
      FieldName = 'SCDISCOUNT'
      Origin = '"SPEC_COND"."SCDISCOUNT"'
      Precision = 18
      Size = 2
    end
    object qSCSCTYPEOFDISCOUNT: TIntegerField
      FieldName = 'SCTYPEOFDISCOUNT'
      Origin = '"SPEC_COND"."SCTYPEOFDISCOUNT"'
    end
    object qSCSCDISCOUNTNOTE: TIBStringField
      FieldName = 'SCDISCOUNTNOTE'
      Origin = '"SPEC_COND"."SCDISCOUNTNOTE"'
      Size = 255
    end
    object qSCSCDISCOUNTAUTORISATION: TIBStringField
      FieldName = 'SCDISCOUNTAUTORISATION'
      Origin = '"SPEC_COND"."SCDISCOUNTAUTORISATION"'
      Size = 40
    end
    object qSCSCTYPEOFDISC: TIntegerField
      FieldName = 'SCTYPEOFDISC'
      Origin = '"SPEC_COND"."SCTYPEOFDISC"'
    end
    object qSCSCDATEBEGIN: TDateField
      FieldName = 'SCDATEBEGIN'
      Origin = '"SPEC_COND"."SCDATEBEGIN"'
    end
    object qSCSCMINPERIOD: TIntegerField
      FieldName = 'SCMINPERIOD'
      Origin = '"SPEC_COND"."SCMINPERIOD"'
    end
    object qSCSCTARIF: TIBBCDField
      FieldName = 'SCTARIF'
      Origin = '"SPEC_COND"."SCTARIF"'
      Precision = 18
      Size = 2
    end
    object qSCSCTARIFWITHDISCOUNT: TIBBCDField
      FieldName = 'SCTARIFWITHDISCOUNT'
      Origin = '"SPEC_COND"."SCTARIFWITHDISCOUNT"'
      Precision = 18
      Size = 2
    end
    object qSCSCAMOUNT: TIBBCDField
      FieldName = 'SCAMOUNT'
      Origin = '"SPEC_COND"."SCAMOUNT"'
      Precision = 18
      Size = 2
    end
    object qSCSCBALANCE: TIBBCDField
      FieldName = 'SCBALANCE'
      Origin = '"SPEC_COND"."SCBALANCE"'
      Precision = 18
      Size = 2
    end
    object qSCSCDATARASCH: TIntegerField
      FieldName = 'SCDATARASCH'
      Origin = '"SPEC_COND"."SCDATARASCH"'
    end
    object qSCSCDATERASTORJ: TDateField
      FieldName = 'SCDATERASTORJ'
      Origin = '"SPEC_COND"."SCDATERASTORJ"'
    end
    object qSCPOID: TIntegerField
      FieldName = 'POID'
      Origin = '"SPEC_COND"."POID"'
    end
    object qSCSCISGRAFEDIT: TIntegerField
      FieldName = 'SCISGRAFEDIT'
      Origin = '"SPEC_COND"."SCISGRAFEDIT"'
    end
    object qSCSTNAME: TIBStringField
      FieldName = 'STNAME'
      Origin = '"SERVICES_TYPE"."STNAME"'
      Size = 255
    end
  end
  object dsSC: TDataSource
    DataSet = qSC
    Left = 208
    Top = 253
  end
  object qR: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'select * from REQUESTGPCHANGE where rid = :rid')
    UpdateObject = quR
    GeneratorField.Field = 'RID'
    GeneratorField.Generator = 'GEN_REQUEST_OTKAZ_ID'
    Left = 296
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'rid'
        ParamType = ptUnknown
      end>
    object qRRID: TIntegerField
      FieldName = 'RID'
      Origin = '"REQUESTGPCHANGE"."RID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qRPID_POLUCH: TIntegerField
      FieldName = 'PID_POLUCH'
      Origin = '"REQUESTGPCHANGE"."PID_POLUCH"'
    end
    object qRPID: TIntegerField
      FieldName = 'PID'
      Origin = '"REQUESTGPCHANGE"."PID"'
    end
    object qRRUSERENTER: TIBStringField
      FieldName = 'RUSERENTER'
      Origin = '"REQUESTGPCHANGE"."RUSERENTER"'
      Size = 40
    end
    object qRRTIMEENTER: TDateTimeField
      FieldName = 'RTIMEENTER'
      Origin = '"REQUESTGPCHANGE"."RTIMEENTER"'
    end
    object qRRUSEREDIT: TIBStringField
      FieldName = 'RUSEREDIT'
      Origin = '"REQUESTGPCHANGE"."RUSEREDIT"'
      Size = 40
    end
    object qRRTIMEEDIT: TDateTimeField
      FieldName = 'RTIMEEDIT'
      Origin = '"REQUESTGPCHANGE"."RTIMEEDIT"'
    end
    object qRRNOTE: TIBStringField
      FieldName = 'RNOTE'
      Origin = '"REQUESTGPCHANGE"."RNOTE"'
      Size = 255
    end
    object qRRDATE: TDateField
      FieldName = 'RDATE'
      Origin = '"REQUESTGPCHANGE"."RDATE"'
    end
    object qRRISDELETE: TIntegerField
      FieldName = 'RISDELETE'
      Origin = '"REQUESTGPCHANGE"."RISDELETE"'
    end
    object qRRSUMMA: TIBBCDField
      FieldName = 'RSUMMA'
      Origin = '"REQUESTGPCHANGE"."RSUMMA"'
      DisplayFormat = '#,###0'
      Precision = 18
      Size = 2
    end
    object qRRREZOL: TIntegerField
      FieldName = 'RREZOL'
      Origin = '"REQUESTGPCHANGE"."RREZOL"'
    end
    object qRRSOST: TIntegerField
      FieldName = 'RSOST'
      Origin = '"REQUESTGPCHANGE"."RSOST"'
    end
    object qRRREZOLNOTE: TIBStringField
      FieldName = 'RREZOLNOTE'
      Origin = '"REQUESTGPCHANGE"."RREZOLNOTE"'
      Size = 255
    end
    object qRSCID: TIntegerField
      FieldName = 'SCID'
      Origin = '"REQUESTGPCHANGE"."SCID"'
    end
    object qRRDATEGP: TDateField
      FieldName = 'RDATEGP'
      Origin = '"REQUESTGPCHANGE"."RDATEGP"'
    end
  end
  object quR: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  RID,'
      '  PID_POLUCH,'
      '  PID,'
      '  RUSERENTER,'
      '  RTIMEENTER,'
      '  RUSEREDIT,'
      '  RTIMEEDIT,'
      '  RNOTE,'
      '  RDATE,'
      '  RISDELETE,'
      '  RSUMMA,'
      '  RREZOL,'
      '  RSOST,'
      '  RREZOLNOTE,'
      '  SCID,'
      '  RDATEGP'
      'from REQUESTGPCHANGE '
      'where'
      '  RID = :RID')
    ModifySQL.Strings = (
      'update REQUESTGPCHANGE'
      'set'
      '  PID = :PID,'
      '  PID_POLUCH = :PID_POLUCH,'
      '  RDATE = :RDATE,'
      '  RDATEGP = :RDATEGP,'
      '  RID = :RID,'
      '  RNOTE = :RNOTE,'
      '  RREZOL = :RREZOL,'
      '  RREZOLNOTE = :RREZOLNOTE,'
      '  RSUMMA = :RSUMMA,'
      '  SCID = :SCID'
      'where'
      '  RID = :OLD_RID')
    InsertSQL.Strings = (
      'insert into REQUESTGPCHANGE'
      
        '  (PID, PID_POLUCH, RDATE, RDATEGP, RID, RNOTE, RREZOL, RREZOLNO' +
        'TE, RSUMMA, '
      '   SCID)'
      'values'
      
        '  (:PID, :PID_POLUCH, :RDATE, :RDATEGP, :RID, :RNOTE, :RREZOL, :' +
        'RREZOLNOTE, '
      '   :RSUMMA, :SCID)')
    DeleteSQL.Strings = (
      'delete from REQUESTGPCHANGE'
      'where'
      '  RID = :OLD_RID')
    Left = 336
    Top = 8
  end
  object qGP: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DataSource = dsSC
    SQL.Strings = (
      'SELECT SCG.SCID, SCG.GPDATE, SCG.GPAMOUNT'
      'FROM SC_GRAFPLAT SCG'
      'WHERE SCG.SCID = :SCID')
    Left = 257
    Top = 382
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SCID'
        ParamType = ptUnknown
      end>
    object qGPGPDATE: TDateField
      FieldName = 'GPDATE'
      Origin = '"SC_GRAFPLAT"."GPDATE"'
    end
    object qGPGPAMOUNT: TIBBCDField
      FieldName = 'GPAMOUNT'
      Origin = '"SC_GRAFPLAT"."GPAMOUNT"'
      Precision = 18
      Size = 2
    end
    object qGPSCID: TIntegerField
      FieldName = 'SCID'
      Origin = '"SC_GRAFPLAT"."SCID"'
    end
  end
  object dsGP: TDataSource
    DataSet = qGP
    Left = 225
    Top = 382
  end
end
